
Th3 b4ll Pr1nc1pl3.
-------------------


 " cp77fk4r.

          .

  ,     ,   ,    90 .
 ,         90 .

 :

 x       y  (    )        y , 
x   ,        x ,  y    .
    :

[Ctrl+Alt ]
x=x*(-1)
y=y*(-1)
[Ctrl+Alt ]

            "+" "-".

,     ,     ,                
 90 ,  . 

    :

[Ctrl+Alt ]
screen 9
cls
Line (100,100)-(400,300),,b
[Ctrl+Alt ]

      300  400 .

(   300  300  400  400      )

,               .

[Ctrl+Alt ]
screen 9
randomize Timer
cls
Line (100,100)-(400,300),,b
xball1=int(rnd*300)+100
yball1=int(rnd*200)+100
xball2=int(rnd*300)+100
yball2=int(rnd*200)+100
[Ctrl+Alt ]

  :

[Ctrl+Alt ]
Randomize Timer
[Ctrl+Alt ]

                .
 ,    :

[Ctrl+Alt ]
xball1
yball1
xball2
yball2
[Ctrl+Alt ]

(      ) .
         :

[Ctrl+Alt ]
screen 9
randomize Timer
cls
Line (100,100)-(400,300),,b
xball1=int(rnd*300)+100
yball1=int(rnd*200)+100
xball2=int(rnd*300)+100
yball2=int(rnd*200)+100
x1=-1
y1=1
x2=1
y2=-1
[Ctrl+Alt ]

,   ,    ,          "q":

[Ctrl+Alt ]
screen 9
randomize Timer
cls
Line (100,100)-(400,300),,bf
xball1=int(rnd*300)+100
yball1=int(rnd*200)+100
xball2=int(rnd*300)+100
yball2=int(rnd*200)+100

x1=1
y1=1
x2=-1
y2=-1

while (inkey$ <> "q") and (inkey$ <> "Q")

Wend
[Ctrl+Alt ]

    .

 ,      ,      .

[Ctrl+Alt ]
Pset (xball1,yball1),1
Pset (xball2,yball2),2
[Ctrl+Alt ]

,             .
,     ,        .

             ,  : 

[Ctrl+Alt ]
Pset (xball1,yball1),1
Pset (xball2,yball2),2
For i=1 to 100000 : Next i
Pset (xball1,yball1),0
Pset (xball2,yball2),0
[Ctrl+Alt ]

     ,         ,   ,    , 
    .

,            .

[Ctrl+Alt ]
Pset (xball1,yball1),1
Pset (xball2,yball2),2
For i=1 to 100000 : Next i
Pset (xball1,yball1),0
Pset (xball2,yball2),0

xball1=xball1+x1
yball1=yball1+y1
xball2=xball2+x2
yball2=yball2+y2
[Ctrl+Alt ]

,  ,        :

[Ctrl+Alt ]
if (xball1 =100) or (xball1 =400)  then x1=x1*-1
if (yball1 =100) or (yball1 =300)  then y1=y1*-1
if (xball2 =100) or (xball2 =400)  then x2=x2*-1
if (yball2 =100) or (yball2 =300)  then y2=y2*-1
[Ctrl+Alt ]

   ,      ,              
 ,     90 .

          .

        .
 :

[Ctrl+Alt ]
if (xball1=xball2) and (yball1=yball2) then
	xball1=xball1*-1
	yball1=yball1*-1
	xball2=xball2*-1
	yball2=yball2*-1
end if

,   ,     ,      .

  ,   8 ,  .

[Ctrl+Alt ]
screen 9
randomize Timer
cls
Line (100,100)-(400,300),,b
xball1=int(rnd*300)+100
yball1=int(rnd*200)+100
xball2=int(rnd*300)+100
yball2=int(rnd*200)+100
xball3=int(rnd*300)+100
yball3=int(rnd*200)+100
xball4=int(rnd*300)+100
yball4=int(rnd*200)+100
xball5=int(rnd*300)+100
yball5=int(rnd*200)+100
xball6=int(rnd*300)+100
yball6=int(rnd*200)+100
xball7=int(rnd*300)+100
yball7=int(rnd*200)+100
xball8=int(rnd*300)+100
yball8=int(rnd*200)+100

x1=1
y1=1
x2=-1
y2=-1
x3=1
y3=-1
x4=1
y4=-1
x5=-1
y5=1
x6=-1
y6=1
x7=1
y7=1
x8=1
y8=-1

while (inkey$ <> "q") and (inkey$ <> "Q")

	Pset (xball1,yball1),1
	Pset (xball2,yball2),2
	Pset (xball3,yball1),1
	Pset (xball4,yball2),2
	Pset (xball5,yball1),1
	Pset (xball6,yball2),2
	Pset (xball7,yball1),1
	Pset (xball8,yball2),2
	For i=1 to 100000 : Next i
	Pset (xball1,yball1),0
	Pset (xball2,yball2),0
	Pset (xball3,yball1),0
	Pset (xball4,yball2),0
	Pset (xball5,yball1),0
	Pset (xball6,yball2),0
	Pset (xball7,yball1),0
	Pset (xball8,yball2),0

	xball1=xball1+x1
	yball1=yball1+y1
	xball2=xball2+x2
	yball2=yball2+y2
	xball3=xball1+x3
	yball3=yball1+y3
	xball4=xball2+x4
	yball4=yball2+y4
	xball5=xball1+x5
	yball5=yball1+y5
	xball6=xball2+x6
	yball6=yball2+y6
	xball7=xball1+x7
	yball7=yball1+y7
	xball8=xball2+x8
	yball8=yball2+y8

	if (xball1 =100) or (xball1 =400)  then x1=x1*-1
	if (yball1 =100) or (yball1 =300)  then y1=y1*-1
	if (xball2 =100) or (xball2 =400)  then x2=x2*-1
	if (yball2 =100) or (yball2 =300)  then y2=y2*-1
	if (xball3 =100) or (xball3 =400)  then x3=x3*-1
	if (yball3 =100) or (yball3 =300)  then y3=y3*-1
	if (xball4 =100) or (xball4 =400)  then x4=x4*-1
	if (yball4 =100) or (yball4 =300)  then y4=y4*-1
	if (xball5 =100) or (xball5 =400)  then x5=x5*-1
	if (yball5 =100) or (yball5 =300)  then y5=y5*-1
	if (xball6 =100) or (xball6 =400)  then x6=x6*-1
	if (yball6 =100) or (yball6 =300)  then y6=y6*-1
	if (xball7 =100) or (xball7 =400)  then x7=x7*-1
	if (yball7 =100) or (yball7 =300)  then y7=y7*-1
	if (xball8 =100) or (xball8 =400)  then x8=x8*-1
	if (yball8 =100) or (yball8 =300)  then y8=y8*-1

Wend

Print "The Program Written By cp77fk4r"
[Ctrl+Alt ]


       ,   QB,     ,         .


                    -  ,  , Cp77fk4r.



|-----------------------------MADE BY cp77fk4r-----------------------------|












